100 REM PROGRAM 2 - TOD CLOCK ALARM DEMO
110 REM
120 L(1)=1:L(2)=9:L(4)=5:L(5)=9:L(7)=5:L(8)=9:L(10)=9
130 POKE53280,0:POKE53281,0:PRINT"[147][158]";
140 IFA=0THENPRINT"LOADING ALARM.IRQ":A=1:LOAD"ALARM.IRQ",8,1
150 SYS 49152
160 PRINT"[159][147][158]1. SET CLOCK TIME"
170 PRINT"2. SET ALARM TIME"
180 PRINT"3. QUIT"
190 GETB$:IFB$<"1"ORB$>"3"THEN190
200 IFB$="1"THENCB=0:T$="CLOCK"
210 IFB$="2"THENCB=128:T$="ALARM"
220 IFB$="3"THENEND
230 PRINT"PLEASE ENTER THE "T$" TIME":H=1:AP$="A":M=0:S=0
240 PRINT"01:00:00.0A[157][157][157][157][157][157][157][157][157][157][157]";:TM$="01:00:00.0A":CP=1
250 PRINT""MID$(TM$,CP,1)"[146][157]";
260 GETA$:IFA$=""THEN260
270 IFA$=CHR$(13)THEN380
280 IFA$=""THEN340
290 IFCP<11THEN320
300 IFA$<>"A"ANDA$<>"P"THEN260
310 GOSUB330:GOTO260
320 IFA$<"0"ORA$>CHR$(L(CP)+48)THEN260
330 TM$=LEFT$(TM$,CP-1)+A$+RIGHT$(TM$,11-CP)
340 PRINTMID$(TM$,CP,1);:CP=CP+1+11*(CP=11)
350 IFCP/3=INT(CP/3)THENPRINT"";:CP=CP+1
360 IFCP=1THENPRINT"[157][157][157][157][157][157][157][157][157][157][157]";
370 GOTO250
380 POKE56335,CB
390 AP$=RIGHT$(TM$,1):H=VAL(MID$(TM$,1,1))*16+VAL(MID$(TM$,2,1))
400 M=VAL(MID$(TM$,4,1))*16+VAL(MID$(TM$,5,1))
410 S=VAL(MID$(TM$,7,1))*16+VAL(MID$(TM$,8,1))
420 HP=-128*(AP$="P")+H:POKE56331,HP
430 POKE56330,M:POKE56329,S:POKE56328,VAL(MID$(TM$,10,1))
440 IFB$="2"THENPOKE56333,136
450 GOTO160